home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / workbench / workbench.h < prev   
Text File  |  1990-11-01  |  1KB  |  51 lines
  1. {$if not def WORKBENCH_WORKBENCH_H}
  2. Const WORKBENCH_WORKBENCH_H=0;
  3. {$if not def EXEC_NODES_H;incl"exec/nodes.h";endif}
  4. {$if not def EXEC_LISTS_H;incl"exec/lists.h";endif}
  5. {$if not def EXEC_TASKS_H;incl"exec/tasks.h";endif}
  6. {$if not def INTUITION_INTUITION_H;incl"intuition/intuition.h";endif}
  7. Const
  8.  WBDISK=1;
  9.  WBDRAWER=2;
  10.  WBTOOL=3;
  11.  WBPROJECT=4;
  12.  WBGARBAGE=5;
  13.  WBDEVICE=6;
  14.  WBKICK=7;
  15.  DRAWERDATAFILESIZE=56 {sizeof(DrawerData)}
  16.  WB_DISKMAGIC=$e310;
  17.  WB_DISKVERSION=1;
  18.  MTYPE_PSTD=1;
  19.  MTYPE_TOOLEXIT=2;
  20.  MTYPE_DISKCHANGE=3;
  21.  MTYPE_TIMER=4;
  22.  MTYPE_CLOSEDOWN=5;
  23.  MTYPE_IOPROC=6;
  24.  GADGBACKFILL=$0001;
  25.  NO_ICON_POSITION=$80000000;
  26. Type
  27. p_DrawerData=^DrawerData;
  28. DrawerData=Record
  29.  dd_NewWindow:NewWindow;
  30.  dd_CurrentX,dd_CurrentY:Long
  31. End;
  32. p_DiskObject=^DiskObject;
  33. DiskObject=Record
  34.  do_Magic,do_Version:Word;
  35.  do_Gadget:Gadget;
  36.  do_Type:Byte;
  37.  do_DefaultTool:Str;
  38.  do_ToolTypes:^ARRAY[1..MaxInt] OF Str;
  39.  do_CurrentX,do_CurrentY:Long;
  40.  do_DrawerData:p_DrawerData;
  41.  do_ToolWindow:Str;
  42.  do_StackSize:Long
  43. End;
  44. p_FreeList=^FreeList;
  45. FreeList=Record
  46.  fl_NumFree:integer;
  47.  fl_MemList:List
  48. End;
  49. {$endif}
  50.  
  51.